home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / misc / emu / Apex-src.lha / PRM.XPL < prev    next >
Text File  |  2001-09-30  |  640b  |  34 lines
  1. \PRM.XPL    APR-10-87
  2. \This program lists a file on the printer and adds a left margin.
  3.  
  4. \REVISION HISTORY:
  5. \MAR-14-86, Original.
  6. \APR-10-87, Changed string conventions.
  7.  
  8. code    CHIN=7,        CHOUT=8,    TEXT=12,    OPENI=13,
  9.     OPENO=14,    CLOSE=15;
  10.  
  11. int    CH;
  12. def    PR=2, DISK=3;
  13. def    TAB=$09, FF=$0C, CR=$0D, EOF=$1A;
  14.  
  15.  
  16. begin    \MAIN
  17. TEXT(0,"-- FILE PRINT PROGRAM --
  18.      (WITH MARGIN)
  19. ");
  20. OPENI(DISK);
  21. OPENO(PR);
  22. CHOUT(PR,TAB);
  23. loop    begin
  24.     CH:= CHIN(DISK);
  25.     if CH = EOF then quit;
  26.     CHOUT(PR,CH);
  27.     if CH = CR then CHOUT(PR,TAB);
  28.     if CH = FF then CHOUT(PR,TAB);
  29.     end;
  30. CLOSE(PR);
  31. end;    \MAIN
  32. F then quit;
  33.     CHOUT(PR,CH);
  34.     if CH = CR t